inherited formCadFornecedor: TformCadFornecedor
  Caption = 'Cadastro de Fornecedores'
  ClientHeight = 381
  ClientWidth = 661
  ExplicitWidth = 677
  ExplicitHeight = 419
  PixelsPerInch = 96
  TextHeight = 13
  inherited pgcCadastro: TPageControl
    Width = 661
    Height = 317
    ActivePage = tbsficha
    ExplicitWidth = 661
    ExplicitHeight = 317
    inherited tbsGrid: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 653
      ExplicitHeight = 307
      inherited dbgConsulta: TDBGrid
        Top = 55
        Width = 653
        Height = 252
        Color = clWhite
        DataSource = dsGrid
        Columns = <
          item
            Expanded = False
            FieldName = 'Fornecedor_Cd'
            Title.Caption = 'C'#243'digo'
            Width = 60
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Fornecedor_Razao'
            Title.Caption = 'Raz'#227'o Social'
            Width = 280
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Fornecedor_Fantasia'
            Title.Caption = 'Nome Fantasia'
            Width = 280
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Fornecedor_Fone1'
            Title.Caption = 'Fone 1'
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Fornecedor_Fone2'
            Title.Caption = 'Fone 2'
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Fornecedor_Status'
            Title.Caption = 'Status'
            Width = 50
            Visible = True
          end>
      end
      inherited pnlFiltro: TPanel
        Width = 653
        Height = 55
        ExplicitWidth = 653
        ExplicitHeight = 55
        object OdontoLabel17: TOdontoLabel
          Left = 8
          Top = 8
          Width = 33
          Height = 13
          Caption = 'C'#243'digo'
        end
        object OdontoLabel18: TOdontoLabel
          Left = 96
          Top = 8
          Width = 60
          Height = 13
          Caption = 'Raz'#227'o Social'
        end
        object OdontoLabel19: TOdontoLabel
          Left = 344
          Top = 8
          Width = 71
          Height = 13
          Caption = 'Nome Fantasia'
        end
        object edtCodigo: TOdontoNumero
          Left = 8
          Top = 24
          Width = 76
          Height = 19
          CharCase = ecUpperCase
          TabOrder = 0
          CorFoco = 15461355
        end
        object edtRazao: TOdontoEdit
          Left = 96
          Top = 24
          Width = 232
          Height = 19
          CharCase = ecUpperCase
          TabOrder = 1
          CorFoco = 15461355
        end
        object edtFantasia: TOdontoEdit
          Left = 344
          Top = 24
          Width = 281
          Height = 19
          CharCase = ecUpperCase
          TabOrder = 2
          CorFoco = 15461355
        end
      end
    end
    inherited tbsficha: TTabSheet
      ExplicitLeft = 7
      ExplicitTop = 6
      ExplicitWidth = 653
      ExplicitHeight = 307
      object OdontoLabel1: TOdontoLabel
        Left = 16
        Top = 16
        Width = 33
        Height = 13
        Caption = 'C'#243'digo'
      end
      object OdontoLabel2: TOdontoLabel
        Left = 107
        Top = 16
        Width = 60
        Height = 13
        Caption = 'Raz'#227'o Social'
      end
      object OdontoLabel3: TOdontoLabel
        Left = 376
        Top = 16
        Width = 71
        Height = 13
        Caption = 'Nome Fantasia'
      end
      object OdontoLabel4: TOdontoLabel
        Left = 16
        Top = 64
        Width = 25
        Height = 13
        Caption = 'CNPJ'
      end
      object OdontoLabel5: TOdontoLabel
        Left = 160
        Top = 64
        Width = 19
        Height = 13
        Caption = 'CPF'
      end
      object OdontoLabel6: TOdontoLabel
        Left = 16
        Top = 112
        Width = 45
        Height = 13
        Caption = 'Endere'#231'o'
      end
      object OdontoLabel7: TOdontoLabel
        Left = 456
        Top = 112
        Width = 65
        Height = 13
        Caption = 'Complemento'
      end
      object OdontoLabel8: TOdontoLabel
        Left = 358
        Top = 112
        Width = 37
        Height = 13
        Caption = 'N'#250'mero'
      end
      object OdontoLabel9: TOdontoLabel
        Left = 16
        Top = 160
        Width = 28
        Height = 13
        Caption = 'Bairro'
      end
      object OdontoLabel10: TOdontoLabel
        Left = 278
        Top = 160
        Width = 33
        Height = 13
        Caption = 'Cidade'
      end
      object OdontoLabel11: TOdontoLabel
        Left = 548
        Top = 157
        Width = 19
        Height = 13
        Caption = 'CEP'
      end
      object OdontoLabel12: TOdontoLabel
        Left = 16
        Top = 208
        Width = 51
        Height = 13
        Caption = 'Telefone 1'
      end
      object OdontoLabel13: TOdontoLabel
        Left = 224
        Top = 208
        Width = 51
        Height = 13
        Caption = 'Telefone 2'
      end
      object OdontoLabel14: TOdontoLabel
        Left = 440
        Top = 208
        Width = 33
        Height = 13
        Caption = 'Celular'
      end
      object OdontoLabel15: TOdontoLabel
        Left = 16
        Top = 256
        Width = 24
        Height = 13
        Caption = 'Email'
      end
      object OdontoLabel16: TOdontoLabel
        Left = 312
        Top = 256
        Width = 63
        Height = 13
        Caption = 'Observa'#231#245'es'
      end
      object dbeCodigo: TDBOdontoEdit
        Left = 16
        Top = 32
        Width = 74
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Fornecedor_Cd'
        DataSource = dsCadastro
        TabOrder = 0
        CorFoco = 15461355
      end
      object dblCidade: TDBLookupOdontoEdit
        Left = 278
        Top = 176
        Width = 251
        Height = 21
        DataField = 'Fornecedor_Cidade'
        DataSource = dsCadastro
        KeyField = 'Cidade_Cd'
        ListField = 'Cidade_Ds; Cidade_UF'
        ListSource = dsCidade
        TabOrder = 11
        CorFoco = 15461355
      end
      object dbeRazao: TDBOdontoEdit
        Left = 107
        Top = 32
        Width = 254
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Fornecedor_Razao'
        DataSource = dsCadastro
        TabOrder = 1
        CorFoco = 15461355
      end
      object dbeFantasia: TDBOdontoEdit
        Left = 376
        Top = 32
        Width = 265
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Fornecedor_Fantasia'
        DataSource = dsCadastro
        TabOrder = 2
        CorFoco = 15461355
      end
      object dbeEndereco: TDBOdontoEdit
        Left = 16
        Top = 128
        Width = 329
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Fornecedor_Endereco'
        DataSource = dsCadastro
        TabOrder = 7
        CorFoco = 15461355
      end
      object dbeNumero: TDBOdontoEdit
        Left = 358
        Top = 128
        Width = 83
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Fornecedor_Numero'
        DataSource = dsCadastro
        TabOrder = 8
        CorFoco = 15461355
      end
      object dbeComplemento: TDBOdontoEdit
        Left = 453
        Top = 128
        Width = 188
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Fornecedor_Complemento'
        DataSource = dsCadastro
        TabOrder = 9
        CorFoco = 15461355
      end
      object dbeBairro: TDBOdontoEdit
        Left = 16
        Top = 176
        Width = 249
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Fornecedor_Bairro'
        DataSource = dsCadastro
        TabOrder = 10
        CorFoco = 15461355
      end
      object dbeObs: TDBOdontoEdit
        Left = 312
        Top = 272
        Width = 329
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Fornecedor_Obs'
        DataSource = dsCadastro
        TabOrder = 17
        CorFoco = 15461355
      end
      object dbeFone1: TDBOdontoEdit
        Left = 16
        Top = 224
        Width = 193
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Fornecedor_Fone1'
        DataSource = dsCadastro
        TabOrder = 13
        CorFoco = 15461355
      end
      object dbeFone2: TDBOdontoEdit
        Left = 224
        Top = 224
        Width = 200
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Fornecedor_Fone2'
        DataSource = dsCadastro
        TabOrder = 14
        CorFoco = 15461355
      end
      object dbeCelular: TDBOdontoEdit
        Left = 440
        Top = 224
        Width = 200
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Fornecedor_Celular'
        DataSource = dsCadastro
        TabOrder = 15
        CorFoco = 15461355
      end
      object dbeEmail: TDBOdontoEdit
        Left = 16
        Top = 272
        Width = 281
        Height = 21
        CharCase = ecUpperCase
        DataField = 'Fornecedor_Email'
        DataSource = dsCadastro
        TabOrder = 16
        CorFoco = 15461355
      end
      object omeCPF: TOdontoCPFMaskEdit
        Left = 162
        Top = 80
        Width = 119
        Height = 21
        CharCase = ecUpperCase
        EditMask = '999\.999\.999\-99;0;_'
        MaxLength = 14
        TabOrder = 4
        CorFoco = 15461355
      end
      object omeCNPJ: TOdontoCNPJMaskEdit
        Left = 16
        Top = 80
        Width = 124
        Height = 21
        CharCase = ecUpperCase
        EditMask = '99\.999\.999\/9999\-99;0;_'
        MaxLength = 18
        TabOrder = 3
        CorFoco = 15461355
      end
      object edtCEP: TOdontoCEPMaskEdit
        Left = 548
        Top = 176
        Width = 92
        Height = 21
        CharCase = ecUpperCase
        EditMask = '99\.999\-999;0;_'
        MaxLength = 10
        TabOrder = 12
        CorFoco = 15461355
      end
      object DBOdontoCheckBox1: TDBOdontoCheckBox
        Left = 424
        Top = 82
        Width = 49
        Height = 17
        Caption = 'Ativo'
        DataField = 'Fornecedor_Status'
        DataSource = dsCadastro
        TabOrder = 5
        ValueChecked = 'A'
        ValueUnchecked = 'I'
      end
      object DBOdontoCheckBox2: TDBOdontoCheckBox
        Left = 532
        Top = 82
        Width = 65
        Height = 17
        Caption = 'Dentista'
        DataField = 'Fornecedor_Tipo'
        DataSource = dsCadastro
        TabOrder = 6
        ValueChecked = 'D'
        ValueUnchecked = 'E'
      end
    end
  end
  inherited pnlBotoes: TPanel
    Width = 661
    ExplicitWidth = 661
    inherited imgBotoes: TImage
      Width = 659
      ExplicitWidth = 659
    end
  end
  inherited statCadastro: TStatusBar
    Top = 356
    Width = 661
    ExplicitTop = 356
    ExplicitWidth = 661
  end
  object qCadastro: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Fornecedor_Cd'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT '
      'Fornecedor_Cd,'
      'Fornecedor_Razao,'
      'Fornecedor_Fantasia,'
      'Fornecedor_CNPJ,'
      'Fornecedor_CPF,'
      'Fornecedor_Endereco,'
      'Fornecedor_Complemento,'
      'Fornecedor_Numero,'
      'Fornecedor_Bairro,'
      'Fornecedor_Cidade,'
      'Fornecedor_CEP,'
      'Fornecedor_Fone1,'
      'Fornecedor_Fone2,'
      'Fornecedor_Celular,'
      'Fornecedor_Email,'
      'Fornecedor_Obs,'
      'Fornecedor_Status,'
      'Fornecedor_Tipo'
      'FROM Fornecedor'
      'WHERE Fornecedor_Cd = :Fornecedor_Cd')
    Left = 296
    Top = 112
    object qCadastroFornecedor_Cd: TAutoIncField
      FieldName = 'Fornecedor_Cd'
      ReadOnly = True
    end
    object qCadastroFornecedor_Razao: TStringField
      FieldName = 'Fornecedor_Razao'
      Size = 50
    end
    object qCadastroFornecedor_Fantasia: TStringField
      FieldName = 'Fornecedor_Fantasia'
      Size = 50
    end
    object qCadastroFornecedor_CNPJ: TStringField
      FieldName = 'Fornecedor_CNPJ'
      FixedChar = True
      Size = 14
    end
    object qCadastroFornecedor_CPF: TStringField
      FieldName = 'Fornecedor_CPF'
      FixedChar = True
      Size = 11
    end
    object qCadastroFornecedor_Endereco: TStringField
      FieldName = 'Fornecedor_Endereco'
      Size = 100
    end
    object qCadastroFornecedor_Complemento: TStringField
      FieldName = 'Fornecedor_Complemento'
      Size = 100
    end
    object qCadastroFornecedor_Numero: TStringField
      FieldName = 'Fornecedor_Numero'
      Size = 10
    end
    object qCadastroFornecedor_Bairro: TStringField
      FieldName = 'Fornecedor_Bairro'
      Size = 50
    end
    object qCadastroFornecedor_Cidade: TIntegerField
      FieldName = 'Fornecedor_Cidade'
    end
    object qCadastroFornecedor_CEP: TStringField
      FieldName = 'Fornecedor_CEP'
      FixedChar = True
      Size = 9
    end
    object qCadastroFornecedor_Fone1: TStringField
      FieldName = 'Fornecedor_Fone1'
    end
    object qCadastroFornecedor_Fone2: TStringField
      FieldName = 'Fornecedor_Fone2'
    end
    object qCadastroFornecedor_Celular: TStringField
      FieldName = 'Fornecedor_Celular'
    end
    object qCadastroFornecedor_Email: TStringField
      FieldName = 'Fornecedor_Email'
      Size = 50
    end
    object qCadastroFornecedor_Obs: TStringField
      FieldName = 'Fornecedor_Obs'
      Size = 200
    end
    object qCadastroFornecedor_Status: TStringField
      FieldName = 'Fornecedor_Status'
      FixedChar = True
      Size = 1
    end
    object qCadastroFornecedor_Tipo: TStringField
      FieldName = 'Fornecedor_Tipo'
      FixedChar = True
      Size = 1
    end
  end
  object dsCadastro: TDataSource
    DataSet = qCadastro
    Left = 296
    Top = 144
  end
  object dsGrid: TDataSource
    DataSet = qGrid
    Left = 328
    Top = 144
  end
  object qGrid: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'SELECT Fornecedor_Cd, '
      '       Fornecedor_Razao,'
      '       Fornecedor_Fantasia,'
      '       Fornecedor_Fone1,'
      '       Fornecedor_Fone2,'
      '       CASE'
      '         WHEN Fornecedor_Status = '#39'A'#39' THEN '#39'ATIVO'#39
      '         ELSE '#39'INATIVO'#39
      '       END AS Fornecedor_Status'
      'FROM Fornecedor')
    Left = 328
    Top = 112
    object qGridFornecedor_Cd: TIntegerField
      FieldName = 'Fornecedor_Cd'
      ReadOnly = True
    end
    object qGridFornecedor_Razao: TStringField
      FieldName = 'Fornecedor_Razao'
      Size = 50
    end
    object qGridFornecedor_Fantasia: TStringField
      FieldName = 'Fornecedor_Fantasia'
      Size = 50
    end
    object qGridFornecedor_Fone1: TStringField
      FieldName = 'Fornecedor_Fone1'
    end
    object qGridFornecedor_Fone2: TStringField
      FieldName = 'Fornecedor_Fone2'
    end
    object qGridFornecedor_Status: TStringField
      FieldName = 'Fornecedor_Status'
      ReadOnly = True
      Size = 7
    end
  end
  object qCidade: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'SELECT Cidade_Cd, '
      '             Cidade_Ds,'
      '             Cidade_UF'
      'FROM Cidade '
      '')
    Left = 360
    Top = 112
    object qCidadeCidade_Cd: TIntegerField
      FieldName = 'Cidade_Cd'
      ReadOnly = True
    end
    object qCidadeCidade_Ds: TStringField
      FieldName = 'Cidade_Ds'
      Size = 50
    end
    object qCidadeCidade_UF: TStringField
      FieldName = 'Cidade_UF'
      FixedChar = True
      Size = 2
    end
  end
  object dsCidade: TDataSource
    DataSet = qCidade
    Left = 360
    Top = 144
  end
end
